home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch06 / loop2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-06-09  |  4.2 KB  |  120 lines
  1. VERSION 2.00
  2. Begin Form frmLOOP2 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "The LOOP2 Program"
  5.    ClientHeight    =   3960
  6.    ClientLeft      =   3270
  7.    ClientTop       =   840
  8.    ClientWidth     =   3360
  9.    Height          =   4365
  10.    Icon            =   LOOP2.FRX:0000
  11.    Left            =   3210
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3960
  14.    ScaleWidth      =   3360
  15.    Top             =   495
  16.    Width           =   3480
  17.    Begin CommandButton cmdDisplay 
  18.       Caption         =   "&Display Speech"
  19.       Height          =   495
  20.       Left            =   240
  21.       TabIndex        =   1
  22.       Top             =   3360
  23.       Width           =   2895
  24.    End
  25.    Begin CommandButton cmdPlay 
  26.       Caption         =   "&Play Speech"
  27.       Height          =   495
  28.       Left            =   240
  29.       TabIndex        =   0
  30.       Top             =   2760
  31.       Width           =   2895
  32.    End
  33.    Begin Label lblSpeech 
  34.       Alignment       =   2  'Center
  35.       BackColor       =   &H00808080&
  36.       ForeColor       =   &H00FFFFFF&
  37.       Height          =   2415
  38.       Left            =   0
  39.       TabIndex        =   2
  40.       Top             =   240
  41.       Visible         =   0   'False
  42.       Width           =   3375
  43.    End
  44.    Begin Image Image1 
  45.       Height          =   2400
  46.       Left            =   600
  47.       Picture         =   LOOP2.FRX:0302
  48.       Top             =   240
  49.       Width           =   2100
  50.    End
  51. ' All variables must be declared before using them.
  52. Option Explicit
  53. ' Declare a variable that will hold the session number.
  54. Dim gSessionNumber
  55. ' Declare constants
  56. Const SP_START_OF_FILE = -1
  57. Const SP_END_OF_FILE = -2
  58. ' Declare the sp_OpenSession() function from
  59. ' the TegoSND.DLL library.
  60. Declare Function sp_OpenSession Lib "TegoSND.DLL" (ByVal lpstrFileName As String) As Integer
  61. ' Declare the sp_PlaySnd() function from
  62. ' the TegoSND.DLL library.
  63. Declare Function sp_PlaySnd Lib "TegoSND.DLL" (ByVal iSessionHandler As Integer, ByVal lStartPoint As Long, ByVal lEndPoint As Long) As Long
  64. ' Declare the sp_CloseSession() function from
  65. ' the TegoSND.DLL library.
  66. Declare Function sp_CloseSession Lib "TegoSND.DLL" (ByVal iSessionHandler As Integer) As Integer
  67. ' Declare the sp_MouseON() function from
  68. ' the TegoSND.DLL library.
  69. Declare Function sp_MouseON Lib "TegoSND.DLL" (ByVal iSessionHandler As Integer) As Integer
  70. ' Declare the sp_MouseOFF() function from
  71. ' the TegoSND.DLL library.
  72. Declare Function sp_MouseOFF Lib "TegoSND.DLL" (ByVal iSessionHandler As Integer) As Integer
  73. Sub cmdDisplay_Click ()
  74.     If cmdDisplay.Caption = "&Display Speech" Then
  75.        lblSpeech.Caption = "So my fellow Americans" + Chr(13) + "ask not" + Chr(13) + "what your country can do for you" + Chr(13) + "ask what you can do for your country"
  76.        ' Make the label visible
  77.        lblSpeech.Visible = True
  78.        ' Change the caption of the button
  79.        cmdDisplay.Caption = "&Remove Text Message"
  80.     Else
  81.        ' Make the label invisible
  82.        lblSpeech.Visible = False
  83.        ' Change the caption of the button
  84.        cmdDisplay.Caption = "&Display Speech"
  85.     End If
  86. End Sub
  87. Sub cmdPlay_Click ()
  88.     Dim Dummy
  89.     Dim CurrentPosition
  90.     ' Make the mouse available
  91.     Dummy = sp_MouseON(gSessionNumber)
  92.     CurrentPosition = 0
  93.     Do While True
  94.        ' Play the WAV file through the PC speaker
  95.        CurrentPosition = sp_PlaySnd(gSessionNumber, CurrentPosition, CurrentPosition + 10000)
  96.        If CurrentPosition = 0 Then
  97.           Exit Do
  98.        End If
  99.        DoEvents
  100.     Loop
  101. End Sub
  102. Sub Form_Load ()
  103.     Dim DriveName As String
  104.     Dim FileName
  105.     Const MB_ICONSTOP = 16
  106.     ' Extract the drive name where this program resides
  107.     DriveName = Left(App.Path, 2)
  108.     ' Open a WAV session
  109.     FileName = DriveName + "\MVPROG\WAV\8Kenned3.WAV"
  110.     gSessionNumber = sp_OpenSession(FileName)
  111.         If gSessionNumber < 0 Then
  112.             MsgBox "Can't open " + FileName, MB_ICONSTOP, "ERROR, WAV FILE WAS NOT OPENED"
  113.         End If
  114. End Sub
  115. Sub Form_Unload (Cancel As Integer)
  116.     Dim Dummy
  117.     ' Close the WAV session
  118.     Dummy = sp_CloseSession(gSessionNumber)
  119. End Sub
  120.